home *** CD-ROM | disk | FTP | other *** search
/ El Mac 1 / Magazine.iso / EL MAC 1 / Shareware / Applications / directtex Pro 2.0 / DirectTeX.5 / Installer-Files / Tools-MPW / Tools-MPW folder / ChangeTeXProject < prev    next >
Encoding:
Text File  |  1995-03-27  |  2.5 KB  |  110 lines  |  [TEXT/MPS ]
  1. # This script file is part of the DirectTeX :-) package.
  2. #
  3. # (c) 1991-94 by Wilfried Ricken
  4. #                Hagenaustraße 41
  5. #                45138 Essen
  6. #                Germany
  7.  
  8. Begin
  9.     Set Echo 0
  10.     Set Exit 0
  11.  
  12.     Set ClearProject 0
  13.     Set CheckFormat 0
  14.     Set ConfirmBuild 0
  15.     Set FileDialog 0
  16.     Set PathName ""
  17.  
  18.     Loop
  19.         Break If {#} == 0
  20.  
  21.         If "{1}" == "-clear"
  22.             Set ClearProject 1
  23.         Else If "{1}" == "-check"
  24.             Set CheckFormat 1
  25.         Else If "{1}" == "-confirm"
  26.             Set ConfirmBuild 1
  27.         Else If "{1}" == "-dialog"
  28.             Set FileDialog 1
  29.         Else
  30.             Set PathName "{1}"
  31.         End
  32.  
  33.         Shift 1
  34.     End
  35.  
  36.     If {FileDialog} != 0
  37.         Set PathName "`GetFileName -s -q -m "Please select the main TEX file." -t 'TEXT' -t 'Com+'`"
  38.         Exit 1 If "{PathName}" == ""
  39.     End
  40.  
  41.     If "{PathName}" != ""
  42.         If `Files -q -f -s "{PathName}" | Count -l` == 1
  43.             Set PathName "`Files -q -f -s "{PathName}"`"
  44.             Open "{PathName}"
  45.             Find • "{PathName}"
  46.         Else
  47.             Alert "Sorry, cannot find the file ∂"{PathName}∂"."
  48.             Exit 1
  49.         End
  50.  
  51.         If "`GetFirstLine "{PathName}"` " =~ /%[ ∂t]*format[ ∂t]*[=:]«0,1»[ ∂t]*([¬ ∂t]+)®1[ ∂t]*/
  52.             Set dt_TeXFormat "{®1}"
  53.         Else
  54.             If "`Files -t 'Fmt+' "{dt_FormatFiles}" | GetListItem -r 10 -m "Please select a format: "`" =~ /(≈)®1.fmt/
  55.                 Set dt_TeXFormat "{®1}"
  56.                 Echo "% Format = {dt_TeXFormat}∂n%" > "{PathName}.§"
  57.                 Find • "{PathName}"
  58.             Else
  59.                 Exit 1
  60.             End
  61.         End
  62.  
  63.         Evaluate "{PathName}" =~ /(≈:)®1([¬:]+)®2/
  64.         Set dt_TeXProjectDir "{®1}"
  65.         Set FileName "{®2}"
  66.  
  67.         If "{FileName}" =~ /(≈)®1(.[¬.]*)®2/
  68.             Set dt_TeXProjectName "{®1}"
  69.             Set dt_TeXProjectExt "{®2}"
  70.         Else
  71.             Set dt_TeXProjectName "{FileName}"
  72.             Set dt_TeXProjectExt ""
  73.         End
  74.  
  75.         Set dt_TeXCurrentFile "{dt_TeXProjectDir}{dt_TeXProjectName}{dt_TeXProjectExt}"
  76.     End
  77.  
  78.     If {ClearProject} != 0
  79.         Set dt_TeXProjectDir ''
  80.         Set dt_TeXProjectName ''
  81.         Set dt_TeXProjectExt ''
  82.         Set dt_TeXFormat ''
  83.         Set dt_TeXCurrentFile ''
  84.     End
  85.  
  86.     If {CheckFormat} != 0
  87.         If "{dt_TeXFormat}" != ""
  88.             SearchPath dt_FormatFiles "{dt_TeXFormat}.fmt" ∑ Dev:Null
  89.             If {Status} != 0
  90.                 If {ConfirmBuild} != 0
  91.                     Confirm "The format ∂'{dt_TeXFormat}∂' does not exist.∂nDo you wish to create it now?"
  92.                 End
  93.                 If {Status} == 0
  94.                     InitFormats "{dt_TeXFormat}.fmt"
  95.                 End
  96.             End
  97.         End
  98.     End
  99.  
  100.     Begin
  101.         Echo -n "Set dt_TeXProjectDir "; Quote "{dt_TeXProjectDir}"
  102.         Echo -n "Set dt_TeXProjectName "; Quote "{dt_TeXProjectName}"
  103.         Echo -n "Set dt_TeXProjectExt "; Quote "{dt_TeXProjectExt}"
  104.         Echo -n "Set dt_TeXFormat "; Quote "{dt_TeXFormat}"
  105.         Echo -n "Set dt_TeXCurrentFile "; Quote "{dt_TeXCurrentFile}"
  106.     End > "{dt_TeXProject}"
  107.  
  108.     Exit 0
  109. End ∑ Dev:Null
  110.